learning R(二)

Posted on | In , | | 浏览 次

预测海藻数量案例

本章主要介绍了一些数据挖局的基本任务：数据预处理、搜索性数据分析、预测模型的构建

问题描述以及目标

河流当中有害藻类的含量会极大影响河流的生态环境，本案例的目的是为了通过使用过去一年采集的不同时间段的水样成分、季节、流速、河流大小这些数据建立模型来预测海藻数量

数据说明

案例数据来自ERUDIT，案例总共有两个数据集。

第一个数据集有200个水样，记录了同一条河流在概念同一季度的三个月内收集的水样的平均值，每天记录由11个变量构成，其中3个名义变量它们描述了水样采集的季节、河流大小、流速，余下的8个变量是不同的化学物质含量。

  1. 最大pH值
  2. 最小含氧量（O~2~）
  3. 平均氯化物含量（CL）
  4. 平均硝酸含量（NO~3~^-^）
  5. 平均氨含量（NH~4~^-^）
  6. 平均正磷酸盐含量（PO~4~^3-^）
  7. 平均磷酸盐含量（PO~4~）
  8. 平均叶绿素含量

第二个数据集来自140个额外观测值。他们的基本结构和第一个数据集一样，但是它不包含7种藻类的频率数目，这些额外的观测值可以视为测试集，案例的主要目标是预测140个水样中7种藻类的频率，所以这是一个预测性数据挖掘类型任务，在这类问题中任务时间里预测模型，并预测在给定预测变量取值是相应的目标变量的值。预测模型也可能会说明哪一个预测变量对目标变量有较大的影响，即模型可能提供影响目标变量因素的一个综合描述。

数据加载到R

我们考虑两种数据载入R的方法，第一种是利用教材提供的R添加包直接加载另外一种方案是下载数据的文本文件之后将文件读入内存。

直接使用lib加载

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
> library(DMwR)
> head(algae)
  season  size  speed mxPH mnO2     Cl    NO3     NH4    oPO4     PO4 Chla   a1
1 winter small medium 8.00  9.8 60.800  6.238 578.000 105.000 170.000 50.0  0.0
2 spring small medium 8.35  8.0 57.750  1.288 370.000 428.750 558.750  1.3  1.4
3 autumn small medium 8.10 11.4 40.020  5.330 346.667 125.667 187.057 15.6  3.3
4 spring small medium 8.07  4.8 77.364  2.302  98.182  61.182 138.700  1.4  3.1
5 autumn small medium 8.06  9.0 55.350 10.416 233.700  58.222  97.580 10.5  9.2
6 winter small   high 8.25 13.1 65.750  9.248 430.000  18.250  56.667 28.4 15.1
    a2   a3  a4   a5   a6  a7
1  0.0  0.0 0.0 34.2  8.3 0.0
2  7.6  4.8 1.9  6.7  0.0 2.1
3 53.6  1.9 0.0  0.0  0.0 9.7
4 41.0 18.9 0.0  1.4  0.0 1.4
5  2.9  7.5 0.0  7.5  4.1 1.0
6 14.6  1.4 0.0 22.5 12.6 2.9

我们通过head看到了数据的前6行

读取文本文件

以文件名A.txt为例，文件包含200行、每列使用空格切分，缺失数值用字符串‘XXXXXXX’来表示

1
algae <- read.table('A.text', header = F,dec = '.',col.names = c('season','size','speed','mxPH','mnO2','Cl','NO3','NH4','oPO4','PO4','Chla','a1','a2','a3','a4','a5','a6','a7'),na.strings = c('XXXXXXX')

header参数表示要读取的文件第一行不包含变量名（列名），dec表示在数值位当中用来区分小数位的字符，col.name为正在读取的变量提供一个名称向量来表示变量名（因为文件第一行没有提供），最后na.string设置默认字符串

数据可视化和摘要

R当中提供了summary函数来获取统计特性的一个摘要信息

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
> summary(algae)
    season       size       speed         mxPH            mnO2       
 autumn:40   large :45   high  :84   Min.   :5.600   Min.   : 1.500  
 spring:53   medium:84   low   :33   1st Qu.:7.700   1st Qu.: 7.725  
 summer:45   small :71   medium:83   Median :8.060   Median : 9.800  
 winter:62                           Mean   :8.012   Mean   : 9.118  
                                     3rd Qu.:8.400   3rd Qu.:10.800  
                                     Max.   :9.700   Max.   :13.400  
                                     NA's   :1       NA's   :2       
       Cl               NO3              NH4                oPO4       
 Min.   :  0.222   Min.   : 0.050   Min.   :    5.00   Min.   :  1.00  
 1st Qu.: 10.981   1st Qu.: 1.296   1st Qu.:   38.33   1st Qu.: 15.70  
 Median : 32.730   Median : 2.675   Median :  103.17   Median : 40.15  
 Mean   : 43.636   Mean   : 3.282   Mean   :  501.30   Mean   : 73.59  
 3rd Qu.: 57.824   3rd Qu.: 4.446   3rd Qu.:  226.95   3rd Qu.: 99.33  
 Max.   :391.500   Max.   :45.650   Max.   :24064.00   Max.   :564.60  
 NA's   :10        NA's   :2        NA's   :2          NA's   :2       
      PO4              Chla               a1              a2        
 Min.   :  1.00   Min.   :  0.200   Min.   : 0.00   Min.   : 0.000  
 1st Qu.: 41.38   1st Qu.:  2.000   1st Qu.: 1.50   1st Qu.: 0.000  
 Median :103.29   Median :  5.475   Median : 6.95   Median : 3.000  
 Mean   :137.88   Mean   : 13.971   Mean   :16.92   Mean   : 7.458  
 3rd Qu.:213.75   3rd Qu.: 18.308   3rd Qu.:24.80   3rd Qu.:11.375  
 Max.   :771.60   Max.   :110.456   Max.   :89.80   Max.   :72.600  
 NA's   :2        NA's   :12                                        
       a3               a4               a5               a6        
 Min.   : 0.000   Min.   : 0.000   Min.   : 0.000   Min.   : 0.000  
 1st Qu.: 0.000   1st Qu.: 0.000   1st Qu.: 0.000   1st Qu.: 0.000  
 Median : 1.550   Median : 0.000   Median : 1.900   Median : 0.000  
 Mean   : 4.309   Mean   : 1.992   Mean   : 5.064   Mean   : 5.964  
 3rd Qu.: 4.925   3rd Qu.: 2.400   3rd Qu.: 7.500   3rd Qu.: 6.925  
 Max.   :42.800   Max.   :44.600   Max.   :44.400   Max.   :77.600  
                                                                    
       a7        
 Min.   : 0.000  
 1st Qu.: 0.000  
 Median : 1.000  
 Mean   : 2.495  
 3rd Qu.: 2.400  
 Max.   :31.600  
> length(algae$Cl[is.na(algae$Cl)])
[1] 10

从结果中我们可以看到在概览展示中，对于名义变量（因子）他给出了每个可能取值的频次（season字段），而对于数值型变量则直接提供了均值、中位数、四分位、极值、和空值的数量 例如Cl数据总共有10个缺失。

下面我们绘制一下mxPH的直方图

1
hist(algae$mxPH,prob = T)

mxPH

设置参数prob=T表示我们要显示的是概率，否则会显示为数量，通过图形我们可以看到mxPH的分布非常接近正态分布，它的值都聚集在均值周围，通过Q-Q图来检测该变量是否为正态分布，下面需要用到的是R的添加包car当中所提供的函数qq.plot

1
2
3
4
5
6
7
8
9
10
11
12
library(car)
# 调用pac设置绘制面板为一行二列
par(mfrow=c(1,2))
# 绘制直方图
hist(algae$mxPH,prob = T,xlab = '',main = 'Histogram of maximum pH value',ylim = 0:1)
# 绘制平滑版本的直方图
lines(density(algae$mxPH,na.rm = T))
# 在X附近绘制变量的实际值
rug(jitter(algae$mxPH))
##绘制Q-Q图，他绘制变量值和正态分布的理论分位数(黑色实线)的散点图，同时给出正太分布的95%置信区间的袋装土(虚线)
qqPlot(algae$mxPH,main = 'Normal QQ plot of maximum pH')
par(mfrow=c(1,1))

最终结果如下图所示

Q-Q

使用箱图进行数据检查

使用统计图进行数据监测可以使用箱图来进行，如下代码：

1
2
3
4
5
6
#绘制箱型图
> boxplot(algae$oPO4,ylab = 'Orthophosphate (oPO4)')
#在箱型图的基础上在坐标系绘制数据的聚集点，side用来表示放置线的位置，1表示x轴下方的边，2表示Y轴的边，3表示top，4表示最后剩下那个边了
> rug(jitter(algae$oPO4),side = 2)
# 绘制平均数的横线，在本例中是横穿坐标系的那个实线，对应数值是73.5906,而lty对应着横线的类型，例如实线、虚线等
> abline(h=mean(algae$oPO4,na.rm = T),lty = 2)

最终会结果如下图

boxplot

箱图包含的信息很多，能够非常直观的看出来数据的范围、分位数、平均数、中位数、上边缘、下边缘、异常值，wiki链接

有时候当有离群值时，可以通过下面这种方式来进行观测

1
2
3
4
5
6
7
8
9
10
11
#绘制数据点
> plot(algae$NH4,xlab = '')
# 划出一条横线坐标是NH4含量的平均值，lty表明使用实线
> abline(h = mean(algae$NH4,na.rm = T),lty = 1)
# 绘制平均值+方差的虚线
> abline(h = mean(algae$NH4,na.rm = T) + sd(algae$NH4,na.rm = T),lty = 2)
# 绘制一条线表明数据的中位数
> abline(h = median(algae$NH4,na.rm = T),lty = 3)
# 下面这条质量会将图形设置为交互式的，点击数据点后将在图中显示数据大小，右击返回数据
> identify(algae$NH4)
[1]  20  35 88 89

我们会得到如下图线

观测离群值

我们可以直接使用identify来将点击采集的数据点保存下来

1
2
3
plot(algae$NH4,xlab = '')
clicked.lines <- identify(algae$NH4)
algae[clicked.lines,]

还可以使用添加包lattice来进行数据检查，该包提供了大量优秀的图形工具。

条件绘图是依赖于某个特定因子的图形表示，因子是一个取值为有限集合的名义变量，例如，对于变量size的不同区直，可以绘制变量a1的一组箱图，每个箱图对应于变量size的某个特定值的水样子集，通过这些箱图可以研究size变量是如何影响变量a1的分布的。

1
2
library(lattice)
bwplot(size ~ a1,data = algae,yalb = 'River Size',xlab = 'Algal A1')

绘制图形如下

河流大小与概率的关系

类似的还有分位箱图，绘制代码如下

1
2
3
> library(Hmisc)
> bwplot(size ~a1,data = algae,panel = panel.bpplot,
+ probs=seq(.01,.49,by=.01),datadensity=T,ylab = 'River Size',xlab = 'Algal A1')

分位箱图当中的点代表了不同大小的河流中海藻频数的均值，图中的竖线分别代表了变量的第一分位数，中位数，第三个分位数，小竖线则代表了数据的实际取值，这些值的分部信息则由分位数图来体现，该图提供的信息是要多余传统箱型图的，我们可以确认小型河流有更高频率的海藻，但是我们也观察到小型河流的海藻频率的分布比其他类型河流的海藻分布要分散

分位箱图

这种类型的条件绘图不局限与名义变量也不局限于单个因子，只要先把连续变量“离散化”也同样可以进行条件绘图，下面给出一个两个因子的条件绘图的例子。考虑a3在给定变量season和变量mnO2下的条件绘图，变量mnO2是一个连续变量，绘制代码如下：

1
2
3
4
# 将变量mnO2离散化为因子类型，number设置区间个数，overlap设置两个区间之间靠近边界的重合度，na.omit提出空值
> minO2 <- equal.count(na.omit(algae$mnO2),number = 4,overlap = 1/5)
# 调用绘图函数把变量的实际值绘制到不同的图形中，然后对变量mnO2的每个不同的区间绘制不同的图形，区间按照从左到右、从上到下的顺序排列
> stripplot(season ~ a3|minO2,data = algae[!is.na(algae$mnO2),])

离散化

数据缺失

通过观察数据我们可以看到有一些变量是有缺失值的，这种情形在现实问题中非常普遍，这会导致一些不能处理缺失值的分析方法无法应用，以下是一些处理缺失值数据的几种常用策略：

  • 将含有缺失值的案例剔除
  • 根据变量之间的相互关系填补缺失值
  • 根据案例之间的相似性填补缺失值
  • 使用能够处理缺失值数据的工具

最后一种方式最为严格，它直接限制了我们能够使用的工具。

将缺失部分剔除

剔除含有缺失数据的记录非常容易实现，尤其是当这些记录所占的比例在可用数据集中非常小的时候，这个选择就会比较合理。

首先我们获取包含有缺失值的数据个数：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
# complete.cases产生一个布尔值向量，该向量的元素个数与algae数据中的行数相同，如果该行数据不含有NA值(完整数据)函数返回值为T
> algae[!complete.cases(algae),]
    season   size  speed mxPH mnO2    Cl   NO3 NH4    oPO4     PO4  Chla   a1
28  autumn  small   high 6.80 11.1 9.000 0.630  20   4.000      NA  2.70 30.3
38  spring  small   high 8.00   NA 1.450 0.810  10   2.500   3.000  0.30 75.8
48  winter  small    low   NA 12.6 9.000 0.230  10   5.000   6.000  1.10 35.5
55  winter  small   high 6.60 10.8    NA 3.245  10   1.000   6.500    NA 24.3
56  spring  small medium 5.60 11.8    NA 2.220   5   1.000   1.000    NA 82.7
57  autumn  small medium 5.70 10.8    NA 2.550  10   1.000   4.000    NA 16.8
58  spring  small   high 6.60  9.5    NA 1.320  20   1.000   6.000    NA 46.8
59  summer  small   high 6.60 10.8    NA 2.640  10   2.000  11.000    NA 46.9
60  autumn  small medium 6.60 11.3    NA 4.170  10   1.000   6.000    NA 47.1
61  spring  small medium 6.50 10.4    NA 5.970  10   2.000  14.000    NA 66.9
62  summer  small medium 6.40   NA    NA    NA  NA      NA  14.000    NA 19.4
63  autumn  small   high 7.83 11.7 4.083 1.328  18   3.333   6.667    NA 14.4
116 winter medium   high 9.70 10.8 0.222 0.406  10  22.444  10.111    NA 41.0
161 spring  large    low 9.00  5.8    NA 0.900 142 102.000 186.000 68.05  1.7
184 winter  large   high 8.00 10.9 9.055 0.825  40  21.083  56.091    NA 16.8
199 winter  large medium 8.00  7.6    NA    NA  NA      NA      NA    NA  0.0
      a2  a3   a4  a5  a6  a7
28   1.9 0.0  0.0 2.1 1.4 2.1
38   0.0 0.0  0.0 0.0 0.0 0.0
48   0.0 0.0  0.0 0.0 0.0 0.0
55   0.0 0.0  0.0 0.0 0.0 0.0
56   0.0 0.0  0.0 0.0 0.0 0.0
57   4.6 3.9 11.5 0.0 0.0 0.0
58   0.0 0.0 28.8 0.0 0.0 0.0
59   0.0 0.0 13.4 0.0 0.0 0.0
60   0.0 0.0  0.0 0.0 1.2 0.0
61   0.0 0.0  0.0 0.0 0.0 0.0
62   0.0 0.0  2.0 0.0 3.9 1.7
63   0.0 0.0  0.0 0.0 0.0 0.0
116  1.5 0.0  0.0 0.0 0.0 0.0
161 20.6 1.5  2.2 0.0 0.0 0.0
184 19.6 4.0  0.0 0.0 0.0 0.0
199 12.5 3.7  1.0 0.0 0.0 4.9
> nrow(algae[!complete.cases(algae),])
[1] 16

通过输出我们可以看到62和199行记录中11个解释变量有6个是缺失值，在这种情况下我们可以直接将其进行剔除

1
2
# 使用c生成一个向量取负数表示丢弃
algae <- algae[-c(62,199),]

我们还可以计算数据当中每行的空数据个数

1
2
3
4
5
6
7
apply(algae,1,function(x) sum(is.na(x)))
  [1] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0
 [38] 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 2 2 2 2 2 2 2 6 1 0 0 0 0 0 0 0 0 0 0 0
 [75] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
[112] 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
[149] 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0
[186] 0 0 0 0 0 0 0 0 0 0 0 0 0 6 0

apply被称为元函数，他们会把后面传递的函数传递给数据，据此我们可以自定义函数将数据缺失达到一定比例的数据剔除

1
2
3
4
5
6
7
8
9
10
11
12
function (data, nORp = 0.2) 
{
    n <- if (nORp < 1) 
        as.integer(nORp * ncol(data))
    else round(nORp, 0)
    idxs <- which(apply(data, 1, function(x) sum(is.na(x))) > 
        n)
    if (!length(idxs)) 
        warning("Empty index generated, no rows with many NAs. Undesirable effects may be caused if indexing a data frame with this.")
    idxs
}
algae_new <- algae[-manyNAs(algae),]

利用高频率值来填补缺失值

填补含有缺失值记录的另一个方法是尝试找到这些缺失值最可能的取值。填补缺失数据最简单和快捷的方法是使用一些代表中心趋势的值，代表中心趋势的值反映了变量分布的最常见取值，因此中心趋势值是最自然的选择。有多个代表数据中心趋势的指标例如：平均值、中位数、众数。最合适的选择由变量的分布决定，对于接近正态分布的值来说，所有数值都较好的分布在平均值周围，平均值就是最佳选择，然而对于偏态分布或者含有离群值的变量来说，选择平均值就不好了。偏态分布的大部分值聚集在平均值分布的一次，因此平均值不能作为最常见值的代表，另一方面，离群值的存在也影响了平均值。这就导致了平均值不具有代表性，因此我们在进行操作之前应该首先观察数据分布。对于偏态分布或者有离群值的分布而言，中位数就是一个更好一些的代表数据中心趋势的指标。

例如在样本algae[48,]当中mxPH就有缺失值，由于该变量分布近似正态分布，我们可以使用平均值来填补这个洞。

1
algae[48,'mxPH'] <- mean(algae$mxPH,na.rm = T)

而对于变量Chla这个变量在12行上有缺失值。这也是平均值不能代表大多数变量值的一种情况，事实上Chla的分布偏向于较低的数值，并且他有几个极端值，这些使得平均值（13.971）不能代表大多数的变量值。因此我们使用中位数来填补这一类的缺失值：

1
algae[is.na(algae$Chila),'Chla'] <- median(algae$Chla,na.rm = T)

由于缺失值的存在会导致某些方法不能使用，所以使用上面的方法填补缺失值通常也认为不是很好的方法。虽然以上方法速度快，适用于大数据集，但是他可能导致较大的数据偏差，影响后期的数据分析工作。然而使用五篇方法寻找最佳数据填补值复杂，对于大型数据挖掘问题可能并不适用。

通过变量的相关关系来填补缺失值

另外一种获取缺失值较少偏差估计值的方法是探寻变量之间的相互关系。比如，通过变量值之间的相关关系，能够发现某变量与mxPH高度相关。这就使得我们得到更好更可能的填补值来填充到底48条记录当中。

使用如下命令获取变量间的相关性

1
2
3
4
5
6
7
8
9
10
11
12
cor(algae[,4:18],use = 'complete.obs')
            mxPH        mnO2          Cl         NO3         NH4         oPO4
mxPH  1.00000000 -0.10269374  0.14709539 -0.17213024 -0.15429757  0.090229085
mnO2 -0.10269374  1.00000000 -0.26324536  0.11790769 -0.07826816 -0.393752688
Cl    0.14709539 -0.26324536  1.00000000  0.21095831  0.06598336  0.379255958
NO3  -0.17213024  0.11790769  0.21095831  1.00000000  0.72467766  0.133014517
NH4  -0.15429757 -0.07826816  0.06598336  0.72467766  1.00000000  0.219311206
oPO4  0.09022909 -0.39375269  0.37925596  0.13301452  0.21931121  1.000000000
PO4   0.10132957 -0.46396073  0.44519118  0.15702971  0.19939575  0.911964602
Chla  0.43182377 -0.13121671  0.14295776  0.14549290  0.09120406  0.106914784
a1   -0.16262986  0.24998372 -0.35923946 -0.24723921 -0.12360578 -0.394574479
...

函数cor功能是产生变量之间的相关值矩阵，之所以从第四个变量开始是因为前三个是名义变量(season/size/speed)，设定参数complete.obs在计算时会忽略掉含有NA的记录，相关值在1或者-1周围表示相应的两个变量之间有强正或者强负的线性相关关系。之后可以在其它函数当中得到变量间线性相关的近似函数形势。

函数cor的输出并不是很清晰，我们可以通过函数symnum来改善结果的输出形式

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
symnum(cor(algae[,4:18],use = 'complete.obs'))
     mP mO Cl NO NH o P Ch a1 a2 a3 a4 a5 a6 a7
mxPH 1                                         
mnO2    1                                      
Cl         1                                   
NO3           1                                
NH4           ,  1                             
oPO4    .  .        1                          
PO4     .  .        * 1                        
Chla .                  1                      
a1         .        . .    1                   
a2   .                  .     1                
a3                               1             
a4      .           . .             1          
a5                                     1       
a6            .  .                     .  1    
a7                                           1 
attr(,"legend")
[1] 0 ‘ ’ 0.3 ‘.’ 0.6 ‘,’ 0.8 ‘+’ 0.9 ‘*’ 0.95 ‘B’ 1

通过谷歌文档找到了对于symnum输出的解释，图中的matrix被填上了各个字符，注意他不是空哪个是空白字符，整张图表示0~0.3之间的数值使用空格表示，0.3~0.6之间数值使用’.’表示，以此类推，从图中我们可以看到oPO4和PO4是强相关的大于0.9，因此对于PO4和oPO4我们可以利用他们的相关性来填补他们的缺失值，首先我们要找到这两个变量的线性相关关系。

1
2
3
4
5
6
7
8
9
> algae_filter <- algae[-manyNAs(algae),]
> lm(PO4~oPO4,data = algae)

Call:
lm(formula = PO4 ~ oPO4, data = algae)

Coefficients:
(Intercept)         oPO4  
     42.897        1.293

使用函数lm()可以获得形如Y = β~0~ + β~1~X~1~ + ··· + β~n~X~n~ 的线性模型。在本例中就是PO4 = 42.897 + 1.293 x oPO4，利用此变量可以对数据进行补充，我们可以通过自定义一个函数来使用sapply来对数据进行填充。

1
2
3
4
5
6
7
algae_new <- algae[-manyNAs(algae),]
fillPO4 <- function(oP){
    if(is.na(oP))
        return(NA)
    else return(42.897 + 1.293 * oP)
}
algae_new[is.na(algae_new$PO4),"PO4"] <- sapply(algae_new[is.na(algae_new$PO4),"oPO4"],fillPO4)

sapply第一个参数是一个向量，第二个参数是一个函数，sapply会使用函数参数遍历向量并最终生成一个新的向量返回。

对于线性关系的研究使得我们能够填充一些新的缺失值，然而还有几个观测值含有缺失值，可以试着探索案例数据中含有缺失值的变量和名义变量之间的关系，可以通过R添加包lattice中的函数来绘制条件直方图来进行

1
histogram(~mxPH | season,data = algae)

pH季节直方图

代码绘制了不同季节变量mxPH的直方图，每个直方图对应于某个季节的观测值数据，季节不是按照自然地时间顺序，因为没有给定绘制变量的顺序，我们可以通过如下来进行指定

1
algae$season <- factor(algae$season,levels = c('spring','summer','autumn','winter'))

我们可以通过直方图拓展到多个变量来进行观察

1
histogram(~mxPH| size *speed,data =algae)

图形绘制了河流大小和速度的组合对mxPH值的变化，需要说明的是它没有说明速度较低切规模较小的河流的相关信息，因为具备这个信息的恰恰是丢失了信息的第48个样本

size speed ->mxPH

通过另一种方式也可以得到类似的信息，但这次应用变量的具体取值如下：

1
stripplot(size ~mxPH|speed,data = algae,jitter = T)

结果如下图所示，jitter = T表明对Y轴的变量进行小范围的随机排列，这样可以避免由于相同值之间相互重叠而导致失去某些特定值的集中度信息。

striiplot

这种类型的分析可以用到其他含有缺失值的变量中，而且这种分析会需要用到多种组合来进行分析，这种方法可以用到少量名义变量的较小数据的分析当中

通过探索案例之间的相似性来填补缺失值

待续。。。

转载请注明来源链接 http://just4fun.im/2018/04/14/learning R(二)//) 尊重知识,谢谢:)